home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
R-Shows
/
(c)sdg.d64
/
snoopy
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
399b
|
19 lines
19100 REM***SNOOPY CONGRATS***
19101 PRINT"[147]":POKE53280,4:POKE53281,6
19105 FORX=1TO25
19110 PRINT"[158]"
19120 PRINT:PRINT:PRINT:PRINT
19130 PRINTTAB(X)" [213][192][201]"
19140 PRINTTAB(X)"[160][160][160] [169][146] [215][192][172]"
19150 PRINTTAB(X)"[160] [210][198][192] [146][201][178][192][203]"
19160 PRINTTAB(X)"[160] [198][196][196][178][203][171][215] "
19170 PRINTTAB(X)"[160] [160][198][179][160][202][192][201]"
19180 PRINTTAB(X)"[160] [169][160][160][160][160][160][160][160] [223][146]"
19190 PRINTTAB(X)"[160][169][163][163][163][163][163][163][163][163][163][163][223][146]"
19200 PRINTTAB(X)"[160] [163][163][163][163][163][163][163][163][146]"
19210 PRINTTAB(X)"[160] [163][163][163][163][163][163][163][163][146]"
19220 PRINTTAB(X)" [163][163][163][163][163][163][163][163][146]"
19225 NEXT X
19230 PRINT"YOU'RE RIGHT! GOOD SHOOTIN' ![146]"
19240 FORPP=1TO1000:NEXTPP